 PieSlice ()   ( Graph)
 --------------------------------------
    .

 :
 Procedure PieSlice(X, Y : Integer; StAngle, EndAngle, Radius : Word);

 :
Real, Protected

 :
   (X, Y) -  .    
StAngle    EndAngle.      ,
      SetFillStyle.

  :
 Arc
 Circle
 Ellipse
 GetArcCoords
 GetAspectRatio
 SetFillPattern
 SetFillStyle
 SetGraphBufSize

 :
 Pieslice.PAS


 {Pieslice.PAS}
---------------
{     PieSlice }

Uses Graph;

Const Radius = 30;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 PieSlice(100, 100, 0, 270, Radius);
 ReadLn;
 CloseGraph;
End.
